home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / GWU Demos / screen.adb < prev    next >
Encoding:
Text File  |  1994-01-09  |  885 b   |  36 lines  |  [TEXT/GADA]
  1. WITH Text_IO;
  2. WITH My_Int_IO;
  3. PACKAGE BODY Screen IS
  4.  
  5. -- Procedures for drawing pictures on ANSI Terminal Screen
  6. -- These procedures will work correctly only if the actual
  7. -- terminal is ANSI compatible. ANSI.SYS on a DOS machine
  8. -- will suffice.
  9.  
  10. -- Michael B. Feldman, The George Washington University
  11.  
  12.  
  13.   PROCEDURE Beep IS
  14.   BEGIN
  15.     Text_IO.Put (Item => ASCII.BEL);
  16.   END Beep;
  17.  
  18.   PROCEDURE ClearScreen IS
  19.   BEGIN
  20.     Text_IO.Put (Item => ASCII.ESC);
  21.     Text_IO.Put (Item => "[2J");
  22.   END ClearScreen;
  23.  
  24.   PROCEDURE MoveCursor (To: IN Position) IS
  25.   BEGIN                                                
  26.     Text_IO.New_Line;
  27.     Text_IO.Put (Item => ASCII.ESC);
  28.     Text_IO.Put ("[");
  29.     My_Int_IO.Put (Item => To.Row, Width => 1);
  30.     Text_IO.Put (Item => ';');
  31.     My_Int_IO.Put (Item => To.Column, Width => 1);
  32.     Text_IO.Put (Item => 'f');
  33.   END MoveCursor;  
  34.  
  35. END Screen;
  36.